home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ADA Programming Guide
/
ADA Programming Guide.iso
/
ada_pcdp
/
adas
/
ren.ada
< prev
next >
Wrap
Text File
|
1996-01-30
|
496b
|
35 lines
with Text_IO; use Text_IO;
with Integer_Text_IO; use Integer_Text_IO;
procedure ren is
task t1 is
entry e(i: in integer);
task body t1 is
begin
loop
accept e(i: in integer) do
put("Rendezvous with "); put(i); new_line;
end e;
end loop;
end t1;
task t2;
task body t2 is
begin
for i in 1 .. 5 loop
t1.e(2);
end loop;
end t2;
task t3;
task body t3 is
begin
for i in 1 .. 5 loop
t1.e(3);
end loop;
end t3;
begin
null;
end;